﻿
Partial Class Paginas_MantenerNoticia
    Inherits System.Web.UI.Page

    Protected Sub btnGrabar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnGrabar.Click
        Dim objNeg As New dllNegocio.NegNoticias(System.Configuration.ConfigurationManager.AppSettings.Get("SPECBDD"))
        Dim objNoticias As New dllEntidades.clsNoticias
        Try
            With objNoticias
                .NotID = IIf(Me.hdnIdNoticia.Value = "", 0, Me.hdnIdNoticia.Value)
                .Autor = Me.txtAutor.Text
                .Bajada = Me.txtBajada.Text
                .Categoria = Me.drpCategoria.SelectedItem.Value
                .Cuerpo = Me.txtCuerpo.Text
                .Estado = Me.drpEstado.SelectedValue
                .Fecha = Me.txtFecha.Text
                .Titulo = Me.txtTitulo.Text

            End With
            Dim ResulGrabar As Integer
            If Me.hdnIdNoticia.Value = "0" Or Me.hdnIdNoticia.Value = "" Then
                ResulGrabar = objNeg.GrabarNoticia(objNoticias)
                Dim nombreImagen As String = "Paginas/img/ImgLoad/Noticias/Noticia" & ResulGrabar.ToString.Trim
                Dim NombreImagenActual As String = Me.FileUpload1.FileName
                NombreImagenActual = NombreImagenActual.Split("\")(NombreImagenActual.Split("\").Length - 1)
                NombreImagenActual = NombreImagenActual.Split(".")(NombreImagenActual.Split(".").Length - 1)
                nombreImagen = nombreImagen & "." & NombreImagenActual
                Me.FileUpload1.SaveAs(Server.MapPath("~") & "/" & nombreImagen)
                NombreImagenActual = nombreImagen.Split("/")(nombreImagen.Split("/").Length - 1)
                objNoticias.Imagen = NombreImagenActual
                objNoticias.NotID = ResulGrabar
                ResulGrabar = objNeg.ModificarImagenNoticia(objNoticias)

                limpiarFormulario()
            Else
                ResulGrabar = objNeg.ModificarNoticia(objNoticias)
            End If

            If ResulGrabar = True Then

                UtilidadesPagina.mensaje("Noticia guardado correctamente", Me.Page)
            End If
        Catch ex As Exception
        Finally
            objNeg.Dispose()
            ' objConvenio.Dispose()
            objNeg = Nothing
            'objConvenio = Nothing
        End Try
    End Sub

    Private Sub limpiarFormulario()
        Me.hdnIdNoticia.Value = "0"
        Me.txtAutor.Text = ""
        Me.txtBajada.Text = ""
        Me.drpCategoria.SelectedValue = ""
        Me.txtCuerpo.Text = ""
        Me.drpEstado.SelectedValue = ""
        Me.txtFecha.Text = ""
        Me.txtTitulo.Text = ""
    End Sub

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not Page.IsPostBack = True Then
            Me.hdnIdNoticia.Value = Request("NoticiaID")
            If Request("NoticiaID") <> "" Then
                ConsultarDatosNoticia(Me.hdnIdNoticia.Value)
            End If
        End If
    End Sub

    Private Sub ConsultarDatosNoticia(ByVal NotID As Integer)
        Dim objNeg As New dllNegocio.NegNoticias(System.Configuration.ConfigurationManager.AppSettings.Get("SPECBDD"))
        Dim objNoticias As New dllEntidades.clsNoticias
        Try
            With objNoticias
                objNoticias.NotID = NotID
            End With
            Dim miCollect As New Collection
            miCollect = objNeg.ConsultarDatosNoticias(objNoticias.NotID)
            If miCollect.Count > 0 Then
                Me.txtTitulo.Text = miCollect.Item(1).Titulo
                Me.txtAutor.Text = miCollect.Item(1).Autor
                Me.txtBajada.Text = miCollect.Item(1).Bajada
                Me.txtCuerpo.Text = miCollect.Item(1).Cuerpo
                Me.txtFecha.Text = miCollect.Item(1).Fecha
                Me.drpCategoria.SelectedValue = miCollect.Item(1).Categoria
                Me.drpEstado.SelectedValue = miCollect.Item(1).Estado
            End If
        Catch ex As Exception
        Finally
            objNeg.Dispose()
            objNeg = Nothing
            objNoticias.Dispose()
            objNoticias = Nothing
        End Try
    End Sub

    Protected Sub btnVolver_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnVolver.Click
        Response.Redirect("ListarNoticias.aspx")
        Response.End()
    End Sub
End Class
